program vocales;

uses crt;
var
a:char;
b:string;
type
    TCadena=string[20];


procedure contarVocales(cadena:TCadena);
 var
 i,numero:integer;
 begin
      numero:=0;
      for i:=1 to 20 do
        begin
          cadena[i]:=upcase(cadena[i]);
          if cadena[i] in ['A','E','I','O','U'] then
             numero:=numero+1;
        end;
    writeln("Hay ", numero, " vocales en la cadena");
a:='o';
a:="oo";

    delay(60000);
 end; {proc. contarVocales}

